Public Class frmBrowser

    Private strURL As String

    Public WriteOnly Property URL() As String
        Set(ByVal value As String)
            Me.strURL = value
        End Set
    End Property

    Private Sub frmBrowser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WebBrowser.Url = New System.Uri(strURL)
    End Sub
End Class